﻿Public Class frmDangNhap

    
    Private Sub btnHuy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHuy.Click
        Me.Close()
    End Sub

    
    Private Sub btnDangNhap_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDangNhap.Click
        Dim taikhoan As New List(Of TaiKhoanDTO)
        If Not txtUID.Text = "" Then
            If Not txtPWD.Text = "" Then
                Dim UID As String = txtUID.Text
                Dim PWD As String = txtPWD.Text

                taikhoan = TaiKhoanBUS.GetByID(UID)

                If taikhoan.Count = 1 Then
                    If taikhoan(0).strPassword = PWD Then
                        If taikhoan(0).iMaLoaiTK = 1 Then
                            MessageBox.Show("Đăng Nhập Thành Công!", "THÔNG BÁO")
                            Form1.QuanLy()
                            Form1.lbUID.Text = " Xin Chào  " & taikhoan(0).strUsername
                        Else
                            MessageBox.Show("Đăng Nhập Thành Công!", "THÔNG BÁO")
                            Form1.NhanVien()
                            Form1.lbUID.Text = " Xin Chào  " & taikhoan(0).strUsername
                        End If
                        Me.Close()
                    Else
                        lbError.Text = "Mật Khẩu Không Đúng!"
                    End If
                Else
                    lbError.Text = "Sai Tên đăng nhập!"
                End If
            Else
                MessageBox.Show("Bạn chưa nhập Mật Khẩu!", "THÔNG BÁO")
            End If
        Else
            MessageBox.Show("Bạn chưa nhập Tên Đăng Nhập!", "THÔNG BÁO")
        End If
       
    End Sub

    
End Class